home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Tools / SFX-Player / Mpeg / MrMPEG / GetInfo.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-08  |  1KB  |  31 lines
  1. /* GetInfo.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIA_Slider_Level    = 0x8042ae3a;    MUIA_Slider_Max        = 0x8042d78a
  7.  
  8. list ID SLIST ATTRS MUIA_List_Active; temp_active = result
  9. list ID SLIST POS temp_active
  10. parse var result filename','temp_song_time','detail
  11. if filename ~= 'RESULT' then do        /* Check if there's any selected song */
  12.   getvar current_song
  13.   if filename ~= result then setvar current_time '00:00'
  14.   list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  15.   setvar active temp_active
  16.   setvar max temp_max
  17.   setvar song_time temp_song_time
  18.   getvar total_time; temp_total_time = result
  19.   getvar current_time; temp_current_time = result
  20.   string ID FNAME CONTENT filename
  21.   text ID LCD LABEL strip(detail)
  22.   text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
  23.   text ID MAX LABEL "\033b\033r"right(temp_max, 3)
  24.   text ID CURNT LABEL "\033b\033r"temp_song_time
  25.   text ID TOTAL LABEL "\033b\033r"temp_total_time
  26.   slider ID PROG ATTRS,
  27.     MUIA_Slider_Max left(temp_song_time, 2) * 60 + right(temp_song_time, 2),
  28.     MUIA_Slider_Level left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
  29. end
  30. return
  31.